home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / !APPL / NORM / MRG (.txt)
Commodore BASIC  |  2009-10-10  |  713b  |  25 lines
  1. 18710 H=1:GOSUB455
  2. 18712 :
  3. 18714 :
  4. 18715 A$="[135]":SYSC(1):A=3:OPEN8,DV,8,DR$+"[186]APPLICATION":GOSUB510:IFERTHEN505
  5. 18716 :
  6. 18717 :
  7. 18718 :
  8. 18720 A=A+1:SYSC(5):A$(A)=LEFT$(TX$,PEEK(142)):IFST=0THEN18720
  9. 18725 IFPEEK(C(22))=1THENPOKEC(22),2
  10. 18730 GOSUB505:GOSUB155:FORI=4TOA:A$=A$(I):SYSC(1):GOSUB310:A$(I)=A$(I)+I$
  11. 18740 NEXT:A$=CR$+"[135]":SYSC(0):FORI=4TOA:A$=A$(I):SYSC(0):NEXT
  12. 18745 IFPEEK(C(22))=2THENPOKEC(22),1
  13. 18750 A$=C2$+"[135][201]S THIS CORRECT? ":SYSC(1):GOSUB1010:SYSC(0):IFA$="[206]"THEN18710
  14. 18755 IFP=255THENGOSUB360:GOTO8004
  15. 18760 A$(0)="[198]ROM:[146] "+NA$+" (#"+MID$(STR$(RN),2)+")":A$(3)="[135]
  16. 18765 :
  17. 18770 A$(1)[178]"STR$ATE:WAIT "[170]DA$[170]" - "[170]T$:A$(2)[178]"(null)UBJ:WAIT ATNPPLICATION
  18. 18780 H=6:GOSUB455:OPEN8,DV,8,DR$+"[186]PRIVATE 2,S,W":GOSUB510:IFER=0THEN18810
  19. 18790 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+"[186]PRIVATE 2,A":GOSUB510:PRINT#8,CR$+"
  20. 18800 [139]ER[167]505
  21. 18810 [129]I[178]0[164]A:A$[178]A$(I):[152]8,A$:A$(I)[178]"
  22. 18820 IFI>3THENGOSUB8004
  23. 18830 NEXT:GOTO505
  24. 18835 :
  25.